package Waya::App::ExtractFuseki;

use warnings;
use strict;

our $VERSION = '0.1';

use base 'Waya::App::FileIterator';


sub process_game {
    my $self = shift;
    my $info = $self->game->game_info_node;

    # very primitive, doesn't handle variations
    for (1..50) {
        last unless $info->{next};
        $info = $info->{next};
    }

    $info->{next} = undef;
}


1;
